open(BUFF,"file_final_ucsc_new_uniq");
#open(WRBUFF,">file_final_ucsc");
open(WRBUFF,">file_final_ucscnew");
$line = <BUFF>;
while($line = <BUFF>)
{
	chomp($line);
	@array = split(/\t/,$line);
	chomp($array[0]);
	if(exists($hash{$array[0]}))
	{
	}
	else
	{
		$hash{$array[0]} = 1;
		print WRBUFF $array[0]."\t".$array[2]."\t".$array[3]."\n";
	}
}

